home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / program / gtld3656.lha / GadUtil / Examples / BetterTest-C / led.asm < prev    next >
Assembly Source File  |  1994-12-26  |  229b  |  18 lines
  1.    xdef  _LightState
  2.    xdef  _ToggleLED
  3.  
  4.    section  code
  5. _LightState:
  6.    tst.w 6(sp)    ; Check state
  7.    beq.s setoff
  8.    bclr  #1,$bfe001
  9.    rts
  10. setoff:
  11.    bset  #1,$bfe001
  12.    rts
  13.  
  14. _ToggleLED:
  15.    bchg  #1,$bfe001
  16.    rts
  17.    end
  18.